home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 98
/
098.d81
/
sinus demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
64 lines
10 :
20 :rem load sinus files
30 :
40 poke56,62:clr
50 dv=peek(186):ifdv<8thendv=8
60 sys57812"lsdemo.spr",dv,0:poke780,0:poke781,0:poke782,62:sys65493
70 sys57812"sinus ml 64",dv,0:poke780,0:poke781,0:poke782,64:sys65493
80 sys57812"d.lsdemo",dv,0:poke780,0:poke781,6:poke782,64:sys65493
90 :
100 :rem setup variables
110 :
120 vi=53248:pg=64:sa=pg*256:sp=248
130 pokevi+32,0:pokevi+33,0
140 :
150 :rem setup sinus interrupt
160 :
170 syssa
180 :
190 :rem poke sprite data
200 :
210 fori=0to7
220 poke2040+i,248+i:rem sprite pointers
230 pokevi+39+i,i+1:rem sprite colors
240 pokevi+37,14:pokevi+38,15
250 next
260 pokevi+29,0:rem x size
270 pokevi+23,0:rem y size
280 pokevi+28,255:rem multicolor on
290 pokevi+37,1:rem multicolor 1
300 pokevi+38,2:rem multicolor 2
310 pokevi+21,255:rem turn sprites on
320 :
330 :rem program goes here
340 :
350 print"[147]":poke214,21:print:print"[159] [208]ress [210], [211], [198], [216], [217], 1, 2, 3 or [209]
355 [151]214,10:[153]:[129]i[178]0[164]7
356 [153][163]24)"forsa+"6[170]i;[163]31)": cmdcmdcmdcmdsys"[194](sa[170]6[170]i):[130]
360 [151]198,0
370 [161]a$:[139]a$[178]""[167]370
372 [139]a$[178]"r"[167][129]i[178]0[164]7:[151]sa[170]6[170]i,[181]([187](1)[172]40):[130]:[137]355
374 [139]a$[178]"s"[167][129]i[178]0[164]3:[151]sa[170]6[170]i,[194](sa[170]6[170]i)[173]2:[130]:[137]355
376 [139]a$[178]"f"[167][129]i[178]0[164]3:[151]sa[170]6[170]i,([194](sa[170]6[170]i)[172]2[170]1)[175]255:[130]:[137]355
380 [139]a$[178]"x"[167]x[178]1[171]x:[151]vi[170]29,255[172]x:[137]370
390 [139]a$[178]"y"[167]y[178]1[171]y:[151]vi[170]23,255[172]y:[137]370
400 [139]a$[178]"1"[167]c1[178](c1[170]1)[175]15:[151]vi[170]37,c1:[137]370
410 [139]a$[178]"2"[167]c2[178](c2[170]1)[175]15:[151]vi[170]38,c2:[137]370
420 [139]a$[178]"3"[167]c3[178](c3[170]1)[175]15:[129]i[178]0[164]7:[151]vi[170]39[170]i,c3:[130]:[137]370
430 [139]a$[178]"q"[167]480
440 [137]370
450 :
460 :[143] turn off sinus
470 :
480 [158]sa[170]3
490 :
500 :[143] return to loadstar
510 :
520 [151]53281,0:[151]53280,0
525 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
530 [139]er[179][177]63[167][128]
540 [151]646,[194](53281):[153]"loadload"[199](34)"hello connect"[199](34)",8"
550 [153]"run"
560 [151]631,13:[151]632,13:[151]198,2:[128]
10000 [159]15,8,15,"s0:sinus demo":[160]15:[148]"sinus demo",8:[128]